home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Nibble Volume 11, No. 02 (1990-02)(MindCraft Publishing)(Side B).zip / Nibble Volume 11, No. 02 (1990-02)(MindCraft Publishing)(Side B).do / RANDOM.GEN.S < prev    next >
Text File  |  1996-12-24  |  1KB  |  9 lines
  1.                         ;******************************** RANDOM.GEN SOURCE CODE      ** BY STEVE MCLENDON           ** COPYRIGHT(C) 1990           ** MINDCRAFT PUBL. CORP.       ** CONCORD, MA 01742           ** MINDCRAFT ASSEMBLER         ********************************  ORG $6000 &MUL1 DFS 1; =RANDOM NUMBER 'N' (0-255)4MUL2 DFS 1; =UPPER LIMIT OF SCALED RANDOM NUMBER (6)PROL DFS 1; =LSB OF PRODUCT N*6PROH DFS 1; =MSB OF PRODUCT N*64QUO DFS 1; =QUOTIENT OBTAINED BY DIVIDING N*6 BY 255DIV DFS 1; =DIVISOR (255)5REM DFS 1; =REMAINDER OBTAINED BY DIVIDING N*6 BY 255
  2.  LDA #$06   STA MUL2 LDA #$FF;DIVISOR=255  STA DIV# JSR $EFAE;GET 0-255 RANDOM NUMBER   LDA $CC   STA MUL1 LDA #$0  STA PROH) LDX #8;START OF ROUTINE TO MULTIPLY N*6  SHIFT ASL  ROL PROH  ASL MUL2
  3.  BCC CHCNT CLC  ADC MUL1
  4.  BCC CHCNT  INC PROH CHCNT DEX
  5.  BNE SHIFT  STA PROL CLC. LDX #8;START OF ROUTINE TO DIVIDE N*6 BY 255   LDA PROH
  6. LOOP      ASL PROL ROL
  7.  BCC DIVID JMP SUB
  8. DIVID     CMP DIV  BCC DIV1 SUB SBC DIV  INC PROLDIV1 DEX  BNE LOOP STA REM  LDA PROL STA QUO LDA REM  CMP #$01;CHECK IF REMAINDER >1   BCC ZCHK INC QUO
  9.